home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / grafica / amicad / arexx / choixformat.amicad < prev    next >
Text File  |  1999-01-01  |  926b  |  34 lines
  1. /* Choix du format du document courant */
  2. /* Version 1.00 (® R.Florac, 14/03/1999) */
  3.  
  4. options results     /* indispensable pour récupérer le résultat des macros */
  5.  
  6. signal on error     /* pour l'interception des erreurs */
  7. signal on syntax
  8.  
  9. 'SELECT("Format document"+CHR(10)+"A4 horizontal (3)"+CHR(10)+"A4 vertical (3)"+CHR(10)+"A4 horizontal (2)"+CHR(10)+"A4 vertical (2)")'
  10. f=result
  11. select
  12.     when f=1 then 'DIMSHEET(1130,768)'
  13.     when f=2 then 'DIMSHEET(768,1130)'
  14.     when f=3 then 'DIMSHEET(1695,1152)'
  15.     when f=4 then 'DIMSHEET(1152,1695)'
  16.     otherwise exit
  17. end
  18. if f>0 then do
  19.     'REQFILE("Nom du schéma?", "Travail:AmiCAD/Schémas", "")'
  20.     n=result
  21.     if n~='' then 'FILENAME("'n'")'
  22. end
  23. exit
  24.  
  25. /* Traitement des erreurs, interruption du programme */
  26. syntax:
  27. erreur=RC
  28. 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  29. exit
  30.  
  31. error:
  32. 'MESSAGE("Erreur en ligne 'SIGL'")'
  33. exit
  34.